home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / coreaids.arc / CLEAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-20  |  524 b   |  31 lines
  1. ;    DESC:    Clears the screen                                    V1.00
  2. ;    SAMPLE:    Callm    CLEAR,,
  3. ;    ##################################################################
  4.  
  5.     Extrn    PUSHALL:Near
  6.     Extrn    POPALL:Near
  7.  
  8. CLEARC    Segment
  9.     Assume    CS:CLEARC
  10.     Public    CLEAR
  11.  
  12.                         ;notice.
  13.     DB    'CLEAR    - V1.00, Copyright 1987, CoreTechs   ',0DH,0AH
  14.  
  15. CLEAR    Proc    Near                 ;clear the screen.
  16.     Call    PUSHALL
  17.  
  18.     Mov    AX,0600H
  19.     Mov    BH,7
  20.     Mov    CX,0
  21.     Mov    DH,25
  22.     Mov    DL,80
  23.     Int    10H
  24.  
  25.     Call    POPALL
  26.     Ret
  27.  
  28. CLEAR    Endp
  29. CLEARC    Ends
  30.     End
  31.